home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
CAD
/
PKEY11_1.ARJ
/
COMPRESS.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
613b
|
16 lines
;Drawing compression program (carefull !! make sure you want to.)
;
; ********Patrick J. McKee, author********
; ****Copyright 1992, Power Key tm****
;
(DEFUN C:COMPRESS()
(setq oer *error* *error* err2)
(PRINC "\nPlease standby..........Compressing drawing file.")
(PRINC "\nAfter compression, drawing will automatically be recalled.")
(COMMAND "LAYER" "T" "*" "ON" "*" "")
(command "zoom""all")
(SETQ WP1(GETVAR "VSMIN"))
(SETQ WP2(GETVAR "VSMAX"))
(SETQ DWG(GETVAR "DWGNAME"))
(COMMAND "WBLOCK" DWG "Y" "" "0,0" "C" WP1 WP2 "" "script" "COMPRESS"))